home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_143
/
rim
/
rimsrcami.arc
/
F3COM.BLK
< prev
next >
Wrap
Text File
|
1988-01-05
|
828b
|
24 lines
C
C *** / F 3 C O M / ***
C
C FILE 3 COMMON CONTROL VARIABLES
C
COMMON /F3COM/ FILE3,LENBF3,LF3REC,MOTREC,MOTADD,LAST,NUMIC,
X MAXIC,ICORE(3,20)
INTEGER FILE3
C
C VARIABLE DEFINITIONS:
C FILE3---FILE NAME OR UNIT FOR FILE3 - THE B-TREE FILE
C LENBF3--LENGTH OF BLOCKS ON FILE3
C LF3REC--NEXT AVAILABLE RECORD ON FILE3
C MOTREC--LAST RECORD USED FOR MULTIPLE OCCURRENCE TABLE
C MOTADD--LAST WORD USED IN THAT RECORD
C LAST----LAST RECORD REQUESTED
C NUMIC---CURRENT NUMBER OF INCORE BLOCKS
C MAXIC---MAXIMUM NUMBER OF INCORE BLOCKS POSSIBLE
C ICORE---ARRAY OF INCORE BLOCK DATA
C ROW 1 - NUMBER OF USES
C ROW 2 - WRITE FLAG (1=YES, 0=NO)
C ROW 3 - CORRESPONDING RECORD NUMBER
C